home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / apps / 44 / demos / grizzy.bas < prev    next >
Encoding:
BASIC Source File  |  1986-08-15  |  770 b   |  27 lines
  1. 5     REM PROGRAM BY <--KURTY BOND-007.5-<<< IN 05-11-1986
  2. 6     CLEARW 2
  3. 10    CLEARW 2:FULLW 2
  4. 15    COLOR 3,0,2:I=577:J=138
  5. 20    GOSUB 200
  6. 40    COLOR 3,0,Z
  7. 50    LINEF X,Y,X+30,Y:LINEF I,J,I+30,J
  8. 60    LINEF X+30,Y,X+30,Y+30:LINEF I+30,J,I+30,J+30
  9. 70    LINEF X+30,Y+30,X,Y+30:LINEF I+30,J+30,I,J+30
  10. 80    LINEF X,Y+30,X,Y:LINEF I,J+30,I,J
  11. 90    IF X>577 THEN XC=1
  12. 100   IF Y>138 THEN YC=1
  13. 110   IF X<1 THEN XC=0
  14. 120   IF Y<1 THEN YC=0
  15. 130   IF XC=0 THEN X=X+1:I=I-1
  16. 140   IF YC=0 THEN Y=Y+1:J=J-1
  17. 150   IF XC=1 THEN X=X-1:I=I+1
  18. 160   IF YC=1 THEN Y=Y-1:J=J+1
  19. 165   Z=Z+1: IF Z>3 THEN Z=0
  20. 170   GOTO 40
  21. 200   FOR F=0 TO 166 STEP 10
  22. 210   LINEF 0,F,607,F
  23. 220   NEXT F
  24. 230   FOR H=0 TO 607 STEP 20
  25. 240   LINEF H,0,H,166
  26. 250   NEXT H:RETURN
  27. ə